home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib02.dsk
/
I AM BUDDHA.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
4KB
|
97 lines
0 PRINT "";""
1 REM ** I AM BUDDHA -- BY DEREK A. KELLY **
2 REM ** COPYRIGHT (C) 1980 BY MICRO-SPARC INC., LINCOLN, MASS. 01773 **
3 GOTO 150: REM TO MAIN PROGRAM
5 FOR A = 1 TO 40: PRINT "+";: NEXT A: RETURN
6 FOR A = 1 TO 40: PRINT "=";: NEXT A: RETURN
7 FOR A = 1 TO 40: PRINT "-";: NEXT A: RETURN
8 Z = INT(( RND(1) *100)/10): IF Z < = 0 OR Z > = 11 THEN 8
9 RETURN
10 IF LEFT$(Q$,1) = "?" THEN END
11 RETURN
14 PRINT "-?-";: GET A$: RETURN
16 PRINT CHR$(7): RETURN
22 RESTORE
23 N = 10
24 FOR I = 1 TO N: READ WO$(I): NEXT I
25 FOR I = 1 TO N: READ WA$(I): NEXT I
26 FOR I = 1 TO N: READ WH$(I): NEXT I
27 FOR I = 1 TO N: READ WN$(I): NEXT I
28 FOR I = 1 TO N: READ HW$(I): NEXT I
29 FOR I = 1 TO N: READ WY$(I): NEXT I
30 RETURN
34 HOME : VTAB 4: GOSUB 5: PRINT :B$ = "I AM BUDDHA"
35 PRINT TAB( (40 - LEN(B$))/2)B$
36 COLOR= 5: VLIN 8,11 AT 10: VLIN 8,11 AT 30
37 GOSUB 6
38 PRINT TAB( 8)"WHAT IS YOUR QUESTION? ": PRINT
39 PRINT "(FIRST WORD= WHO:WHAT:WHEN:WHERE:HOW:WHY:OR '?' TO END)"
40 INPUT "INPUT QUERY =? :";Q$
41 GOSUB 10
42 GOSUB 7
43 PRINT "MY ANSWER IS: --->"
44 PRINT : RETURN
50 REM DECISIONS
51 FOR I = 1 TO N:C$(I) = WO$(I): NEXT I: GOTO 60
52 FOR I = 1 TO N:C$(I) = WA$(I): NEXT I: GOTO 60
53 FOR I = 1 TO N:C$(I) = WH$(I): NEXT I: GOTO 60
54 FOR I = 1 TO N:C$(I) = WN$(I): NEXT I: GOTO 60
55 FOR I = 1 TO N:C$(I) = HW$(I): NEXT I: GOTO 60
56 FOR I = 1 TO N:C$(I) = WY$(I): NEXT I
59 ::
60 REM MAIN PRINTOUT
62 GOSUB 8
64 PRINT TAB( (40 - LEN(C$(Z)))/2)C$(Z)"!"
65 GOSUB 6
66 GOSUB 16: PRINT TAB( 8)"NEXT QUESTION";
67 GOSUB 14
68 RETURN
70 REM '-' INPUTS
72 F = INT(( RND(1) *12)/2): IF F = 0 OR F > = 7 THEN 72
73 F = F +50
74 IF F = 51 THEN GOTO 51
75 IF F = 52 THEN GOTO 52
76 IF F = 53 THEN GOTO 53
77 IF F = 54 THEN GOTO 54
78 IF F = 55 THEN GOTO 55
79 IF F = 56 THEN GOTO 56
80 GOTO 72
150 REM MAIN PROGRAM
152 DIM C$(15),WO$(15),WA$(15),WN$(15),HW$(15),WY$(15)
154 HOME : VTAB 2
155 GOSUB 5
156 VTAB 12: HTAB 17: PRINT "WHOA!"
157 GOSUB 22
158 PRINT
160 GOSUB 34
164 IF LEFT$(Q$,3) = "WHO" THEN GOSUB 51
165 IF LEFT$(Q$,4) = "WHAT" THEN GOSUB 52
166 IF LEFT$(Q$,5) = "WHERE" THEN GOSUB 53
167 IF LEFT$(Q$,4) = "WHEN" THEN GOSUB 54
168 IF LEFT$(Q$,3) = "HOW" THEN GOSUB 55
169 IF LEFT$(Q$,3) = "WHY" THEN GOSUB 56
170 IF LEFT$(Q$,1) = "-" THEN GOSUB 70
180 GOTO 160
200 REM DATA
210 DATA NO MATTER, WHO CARES, WHY DO YOU WANT TO KNOW?, ANYONE WILL DO
212 DATA NO ONE YOU WOULD KNOW, SOME FREAK
214 DATA I CANNOT TELL YOU, AN UNUSUAL PERSON,A FRIEND OF MINE
215 DATA YOU WOULD JUST DIE IF YOU KNEW,I DON'T WANT TO ANSWER THAT
220 DATA NEVER MIND, NOTHING, HOW ON EARTH SHOULD I KNOW?
222 DATA WHAT DO YOU WANT TO MAKE OF IT?, NEITHER THIS NOR THAT, IT'S NONE OF YOUR BUSINESS
224 DATA SOMETHING FANTASTIC, GET OUTTA HERE, YOU'D NEVER BELIEVE ME, SCRAM
230 DATA THERE, EVERYWHERE, UNDER THE MOON, OVER THE EARTH
232 DATA THINK, CROSS YOUR HEART?
234 DATA BEYOND MOUNTAIN PEAKS,ROUND THE CORNER,OVER THE HILLS
235 DATA OBSESSIVE AREN'T YOU?
240 DATA NEVER, TOMORROW, DOWN THE ROAD AWHILE
242 DATA WHEN THE TIME IS RIGHT, WOULDN'T YOU LIKE TO KNOW, WHEN I SAY
244 DATA CROSS THAT BRIDGE WHEN YOU COME TO IT, DON'T BUTT IN, EVENTUALLY, SOMEDAY
250 DATA NEVER YOU MIND, FIRST YOU GOTTA HAVE A PLAN, YOU'VE GOT ME THERE
252 DATA BY WORKING YOUR BUTT OFF, BY CALCULATED INACTION, BY TRIAL AND ERROR
254 DATA YOU'LL KNOW WHEN THE TIME COMES, LIKE CLOCKWORK, LEAVE IT ALONE
255 DATA ENOUGH OF YOUR QUESTIONS
260 DATA WHY NOT?, SO WHAT'S YOUR PROBLEM ANYWAY?
262 DATA TRY IT! YOU'LL LIKE IT, JUST BECAUSE..., AS AN AFTERTHOUGHT
264 DATA IT'S IN YOUR BEST INTEREST, WHY DO YOU THINK?
266 DATA YOUR GUESS IS AS GOOD AS MINE, C'EST LA VIE, WELL THAT'S MY OPINION